home *** CD-ROM | disk | FTP | other *** search
/ French Postcards Plus / 350a_French_Postcards.dsk / FOR & AFT SCENE.bas < prev    next >
BASIC Source File  |  2020-07-23  |  1KB  |  33 lines
  1. 1 D$ =  CHR$(4)
  2. 10  PRINT D$;"BLOAD HIRES SCRUNCH"
  3. 190  TEXT : HOME 
  4. 200 A = 1
  5. 205  VTAB 10
  6. 210  PRINT "THIS GROUP HAS REALLY GOT IT TOGETHER!  THEY ARE REALLY HAVING A BALL!! THIS IS THE KIND OF THING THAT CAN REALLY BRING PEOPLE CLOSER TOGETHER.  I WONDER WHO'S HAVING THE MOST FUN?  PROBABLY THE GAL  IN THE MIDDLE!!
  7. 220  FOR G1 = 1 TO 7500: NEXT G1
  8. 300  PRINT D$;"BLOAD PIC.FORAFT1,A$7000"
  9. 305  GOSUB 1000
  10. 310  PRINT D$;"BLOAD PIC.FORAFT2,A$7000"
  11. 315  GOSUB 1010
  12. 390  POKE  -16297,0
  13. 400  POKE  -16304,0
  14. 410  POKE  -16302,0
  15. 430  GOSUB 590
  16. 450  POKE  -16299,0
  17. 460  GOSUB 650
  18. 480  POKE  -16300,0
  19. 490  GOTO 430
  20. 590  REM 
  21. 650  FOR I = 1 TO 50  STEP A
  22. 660 TN = 200 -2 *A -I
  23. 670  POKE 768,TN: POKE 769,10
  24. 680  CALL 770
  25. 690  NEXT 
  26. 700 A = A +1
  27. 705  IF A >99  THEN 800
  28. 710  RETURN 
  29. 800  HOME : PRINT D$;"RUN MENU"
  30. 1000  POKE 24582,0: POKE 24583,32: POKE 24584,255: POKE 24585,63: POKE 24587,112: CALL 24579
  31. 1001  RETURN 
  32. 1010  POKE 24582,0: POKE 24583,64: POKE 24584,255: POKE 24585,95: POKE 24587,112: CALL 24579
  33. 1011  RETURN